home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 6.2
/
2000-12_-_Disc_6.2.iso
/
Patches
/
age2upa.exe
/
CABFILE
/
FILESUSA.CAB
/
Data
/
gamedata.drs
/
Unnamed File 000029.bina
< prev
next >
Wrap
Text File
|
1999-11-11
|
17KB
|
728 lines
#load-if-defined DIFFICULTY-EASIEST
#load-if-not-defined TEAMS-LOCKED
(defrule
(true)
=>
(set-stance every-human neutral)
(set-stance every-computer neutral)
(disable-self)
)
(defrule
(cc-players-building-type-count any-human market > 0)
=>
(generate-random-number 2)
(set-goal personality 50)
(disable-self)
)
(defrule
(goal personality 50)
(random-number == 1)
=>
(enable-timer t-chathelp 10)
(set-goal personality 4)
(disable-self)
)
(defrule
(goal personality 50)
=>
(set-goal personality 0)
(disable-self)
)
(defrule
(goal personality 4)
(taunt-detected any-computer 218)
=>
(set-goal personality 0)
(acknowledge-taunt this-any-computer 218)
(disable-timer t-chathelp)
(disable-self)
)
(defrule
(goal personality 4)
(timer-triggered t-chathelp)
=>
(set-goal personality ALLY)
(disable-timer t-chathelp)
(set-stance every-human neutral)
(set-stance every-computer neutral)
(chat-to-player-using-id every-human 22000)
;"Send me 100 resources and I shall join thine side."
(chat-to-player-using-id every-computer 22400) ;218
(disable-self)
)
(defrule
(goal personality ALLY)
(or
(or
(players-tribute any-human-neutral wood >= 100)
(players-tribute any-human-neutral food >= 100)
)
(or
(players-tribute any-human-neutral gold >= 100)
(players-tribute any-human-neutral stone >= 100)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22002)
(chat-to-player-using-id this-any-human-neutral 22003)
;"I am grateful for thy tribute."
;"Let us be friends henceforth!"
(set-stance this-any-human-neutral ally)
(set-stance every-computer enemy)
(disable-self)
)
#end-if
(defrule
(true)
=>
(set-strategic-number sn-percent-enemy-sighted-response 10)
(set-strategic-number sn-easiest-reaction-percentage 20)
(set-difficulty-parameter ability-to-maintain-distance 100)
(set-difficulty-parameter ability-to-dodge-missiles 100)
(disable-self)
)
;crude age advancement rules
(defrule
(goal age-advancement NO)
(players-current-age every-human >= feudal-age)
(can-research-with-escrow feudal-age)
=>
(release-escrow food)
(research feudal-age)
(set-goal age-advancement NOTICE)
(enable-timer t-ageup 300)
)
(defrule
(current-age == feudal-age)
=>
(disable-timer t-ageup)
(set-goal age-advancement NO)
(disable-self)
)
(defrule
(goal age-advancement NO)
(players-current-age every-human >= castle-age)
(can-research-with-escrow castle-age)
=>
(release-escrow food)
(release-escrow gold)
(research castle-age)
(set-goal age-advancement NOTICE)
(enable-timer t-ageup 300)
)
(defrule
(current-age == castle-age)
=>
(disable-timer t-ageup)
(set-goal age-advancement NO)
(disable-self)
)
(defrule
(goal age-advancement NOTICE)
(current-age < castle-age)
(timer-triggered t-ageup)
=>
(disable-timer t-ageup)
(set-goal age-advancement NO)
)
#end-if
;********************************
#load-if-defined DIFFICULTY-EASY
(load "petersen tower")
#load-if-not-defined TEAMS-LOCKED
(defrule
(cc-players-building-type-count any-human market > 0)
=>
(generate-random-number 2)
(set-goal personality 50)
(disable-self)
)
(defrule
(goal personality 50)
(random-number == 1)
=>
(enable-timer t-chathelp 10)
(set-goal personality 4)
(disable-self)
)
(defrule
(goal personality 50)
=>
(set-goal personality 0)
(disable-self)
)
(defrule
(goal personality 4)
(taunt-detected any-computer 218)
=>
(set-goal personality 0)
(acknowledge-taunt this-any-computer 218)
(disable-timer t-chathelp)
(disable-self)
)
(defrule
(goal personality 4)
(timer-triggered t-chathelp)
=>
(set-goal personality ALLY)
(set-stance every-human neutral)
(set-stance every-computer neutral)
(chat-to-player-using-id every-computer 22400) ;218
(disable-timer t-chathelp)
(disable-timer t-chat)
(enable-timer t-chat 600)
(disable-self)
)
(defrule
(goal personality ALLY)
(starting-resources == low-resources)
=>
(chat-to-player-using-id every-human 22004)
(chat-to-player-using-id every-human 22005)
;"Send me 200 each of wood, food, gold, and stone!"
;"If thou dost this thing, I shall join thine side."
(disable-self)
)
(defrule
(goal personality ALLY)
(starting-resources == medium-resources)
=>
(chat-to-player-using-id every-human 22006)
(chat-to-player-using-id every-human 22005)
;"Send me 500 each of wood, food, gold, and stone!"
;"If thou dost this thing, I shall join thine side."
(disable-self)
)
(defrule
(goal personality ALLY)
(starting-resources == high-resources)
(stance-toward any-human neutral)
=>
(chat-to-player-using-id every-human 22007)
(chat-to-player-using-id every-human 22005)
;"Send me 1000 each of wood, food, gold, and stone!"
;"If thou dost this thing, I shall join thine side."
(disable-self)
)
(defrule
(timer-triggered t-chat)
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral wood < 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral wood < 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral wood < 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22008)
;"Thou must send me more wood!"
(disable-timer t-chat)
(enable-timer t-chat 300)
)
(defrule
(timer-triggered t-chat)
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral food < 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral food < 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral food < 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22009)
;"Thou must send me more food!"
(disable-timer t-chat)
(enable-timer t-chat 300)
)
(defrule
(timer-triggered t-chat)
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral gold < 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral gold < 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral gold < 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22010)
;"Thou must send me more gold!"
(disable-timer t-chat)
(enable-timer t-chat 300)
)
(defrule
(timer-triggered t-chat)
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral stone < 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral stone < 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral stone < 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22011)
;"Thou must send me more stone!"
(disable-timer t-chat)
(enable-timer t-chat 300)
)
(defrule
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral wood >= 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral wood >= 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral wood >= 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22012)
;"Thank thee for the wood! It is enough."
(disable-self)
)
(defrule
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral food >= 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral food >= 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral food >= 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22013)
;"Thank thee for the food! It is enough."
(disable-self)
)
(defrule
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral gold >= 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral gold >= 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral gold >= 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22014)
;"Thank thee for the gold! It is enough."
(disable-self)
)
(defrule
(goal personality ALLY)
(or
(and
(starting-resources == low-resources)
(players-tribute any-human-neutral stone >= 200)
)
(or
(and
(starting-resources == medium-resources)
(players-tribute any-human-neutral stone >= 500)
)
(and
(starting-resources == high-resources)
(players-tribute any-human-neutral stone >= 1000)
)
)
)
=>
(chat-to-player-using-id this-any-human-neutral 22015)
;"Thank thee for the stone! It is enough."
(disable-self)
)
(defrule
(goal personality ALLY)
(starting-resources == low-resources)
(players-tribute any-human-neutral wood >= 200)
(players-tribute any-human-neutral food >= 200)
(players-tribute any-human-neutral gold >= 200)
(players-tribute any-human-neutral stone >= 200)
=>
(chat-to-player-using-id this-any-human-neutral 22016)
(chat-to-player-using-id this-any-human-neutral 22017)
;"The goods we have obtained from thee are glorious indeed!"
;"Set thine stance to Ally with me!"
(enable-timer t-chatmore 60)
(set-goal 35 NOTICE)
(disable-self)
)
(defrule
(goal personality ALLY)
(starting-resources == medium-resources)
(players-tribute any-human-neutral wood >= 500)
(players-tribute any-human-neutral food >= 500)
(players-tribute any-human-neutral gold >= 500)
(players-tribute any-human-neutral stone >= 500)
=>
(chat-to-player-using-id this-any-human-neutral 22016)
(chat-to-player-using-id this-any-human-neutral 22017)
;"The goods we have obtained from thee are glorious indeed!"
;"Set thine stance to Ally with me!"
(enable-timer t-chatmore 60)
(set-goal 35 NOTICE)
(disable-self)
)
(defrule
(goal personality ALLY)
(starting-resources == high-resources)
(players-tribute any-human-neutral wood >= 1000)
(players-tribute any-human-neutral food >= 1000)
(players-tribute any-human-neutral gold >= 1000)
(players-tribute any-human-neutral stone >= 1000)
=>
(chat-to-player-using-id this-any-human-neutral 22016)
(chat-to-player-using-id this-any-human-neutral 22017)
;"The goods we have obtained from thee are glorious indeed!"
;"Set thine stance to Ally with me!"
(enable-timer t-chatmore 60)
(set-goal 35 NOTICE)
(disable-self)
)
(defrule
(not (goal 35 0) )
(players-stance any-human-neutral ally)
=>
(chat-to-player-using-id this-any-human-neutral 22003)
;"Let us be friends henceforth!"
(set-stance this-any-human-neutral ally)
(set-stance every-computer enemy)
(disable-timer t-chatmore)
(set-goal personality 0)
(set-goal 35 0)
(disable-self)
)
(defrule
(goal 35 NOTICE)
(timer-triggered t-chatmore)
(or
(players-stance any-human-neutral neutral)
(players-stance any-human-neutral enemy)
)
=>
(chat-to-player-using-id this-any-human-neutral 22018)
(chat-to-player-using-id this-any-human-neutral 22019)
;"Thou must to set thine diplomatic"
;"stance towards me to Ally!"
(disable-timer t-chatmore)
(enable-timer t-chatmore 60)
(set-goal 35 98)
(disable-self)
)
(defrule
(goal 35 98)
(timer-triggered t-chatmore)
(or
(players-stance any-human-neutral neutral)
(players-stance any-human-neutral enemy)
)
=>
(chat-to-player-using-id this-any-human-neutral 22020)
(chat-to-player-using-id this-any-human-neutral 22021)
(chat-to-player-using-id this-any-human-neutral 22022)
;"This is thy last warning."
;"Set thine stance to Ally with me,"
;"as I shall do for thee."
(disable-timer t-chatmore)
(enable-timer t-chatmore 60)
(set-goal 35 97)
(disable-self)
)
(defrule
(goal 35 97)
(timer-triggered t-chatmore)
(or
(players-stance any-human-neutral neutral)
(players-stance any-human-neutral enemy)
)
=>
(disable-timer t-chatmore)
(set-goal 35 96)
(disable-self)
)
(defrule
(game-time >= 3600)
(goal personality ALLY)
=>
(set-goal personality 0)
(set-goal 35 96)
(disable-self)
)
(defrule
(goal 35 96)
(stance-toward any-human neutral)
=>
(chat-to-player-using-id this-any-human-neutral 22023)
(chat-to-player-using-id this-any-human-neutral 22024)
;"Thou hast taken far too long to do that simple task."
;"Now we must be foes!"
(disable-timer t-chat)
(set-stance this-any-human enemy)
(set-stance every-computer ally)
)
#end-if
(defrule
(true)
=>
(set-strategic-number sn-percent-enemy-sighted-response 25)
(set-strategic-number sn-easier-reaction-percentage 20)
(set-strategic-number sn-hits-before-alliance-change 50)
(set-difficulty-parameter ability-to-maintain-distance 75)
(set-difficulty-parameter ability-to-dodge-missiles 75)
(disable-self)
)
;crude age advancement rules
(defrule
(goal age-advancement NO)
(players-current-age every-human >= feudal-age)
(can-research-with-escrow feudal-age)
=>
(release-escrow food)
(research feudal-age)
(set-goal age-advancement NOTICE)
(enable-timer t-ageup 300)
)
(defrule
(current-age == feudal-age)
=>
(disable-timer t-ageup)
(set-goal age-advancement NO)
(disable-self)
)
(defrule
(goal age-advancement NO)
(players-current-age every-human >= castle-age)
(can-research-with-escrow castle-age)
=>
(release-escrow food)
(release-escrow gold)
(research castle-age)
(set-goal age-advancement NOTICE)
(enable-timer t-ageup 300)
)
(defrule
(current-age == castle-age)
=>
(disable-timer t-ageup)
(set-goal age-advancement NO)
(disable-self)
)
(defrule
(goal age-advancement NO)
(players-current-age every-human == imperial-age)
(can-research-with-escrow imperial-age)
=>
(release-escrow food)
(release-escrow gold)
(research imperial-age)
(set-goal age-advancement NOTICE)
(enable-timer t-ageup 300)
)
(defrule
(current-age == imperial-age)
=>
(disable-timer t-ageup)
(set-goal age-advancement NO)
(disable-self)
)
(defrule
(goal age-advancement NOTICE)
(current-age < imperial-age)
(timer-triggered t-ageup)
=>
(disable-timer t-ageup)
(set-goal age-advancement NO)
)
#end-if
;********************************
#load-if-defined DIFFICULTY-MODERATE
(load "petersen diplomacy")
(load "petersen market")
(load "petersen tower")
(load "petersen wonder")
(defrule
(true)
=>
(set-strategic-number sn-percent-enemy-sighted-response 75)
(set-strategic-number sn-hits-before-alliance-change 25)
(set-difficulty-parameter ability-to-maintain-distance 50)
(set-difficulty-parameter ability-to-dodge-missiles 50)
(disable-self)
)
#end-if
;********************************
#load-if-defined DIFFICULTY-HARD
(load "petersen diplomacy")
(load "petersen market")
(load "petersen tower")
(load "petersen wonder")
(defrule
(true)
=>
(set-strategic-number sn-percent-enemy-sighted-response 99)
(set-strategic-number sn-hits-before-alliance-change 10)
(set-difficulty-parameter ability-to-maintain-distance 0)
(set-difficulty-parameter ability-to-dodge-missiles 0)
(disable-self)
)
#end-if
;********************************
#load-if-defined DIFFICULTY-HARDEST
(load "petersen diplomacy")
(load "petersen market")
(load "petersen tower")
(load "petersen wonder")
(defrule
(true)
=>
(set-strategic-number sn-percent-enemy-sighted-response 99)
(set-strategic-number sn-hits-before-alliance-change 10)
(set-difficulty-parameter ability-to-maintain-distance 0)
(set-difficulty-parameter ability-to-dodge-missiles 0)
(disable-self)
)
(defrule
(current-age == imperial-age)
=>
(enable-timer t-chatmore 1800)
(disable-self)
)
(defrule
(timer-triggered t-chatmore)
=>
(cc-add-resource wood 500)
(cc-add-resource food 500)
(cc-add-resource gold 500)
(cc-add-resource stone 500)
(disable-timer t-chatmore)
(enable-timer t-chatmore 1200)
)
#end-if
